home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
prog_bas
/
basicwnt.zip
/
ARRAY.BAS
next >
Wrap
BASIC Source File
|
1996-02-11
|
533b
|
18 lines
0 rem *
1 rem *
2 rem *ARRAY_TEST_FOR_NITROUSBASIC
3 rem *
4 rem *
5 INDEX=0
10 dim A[5 ,5 ,5 ,5 ]
15 print "One moment, Initializing the array:"
20 for I=0 to 4 :for J=0 to 4 :for K=0 to 4 :for L=0 to 4
60 A[I,J,K,L]=INDEX
70 INDEX=INDEX+1
80 next L:next K:next J:next I
100 print "Done Initializing the array...."
105 print :print "Here is the array:" :print
110 for I=0 to 4 :for J=0 to 4 :for K=0 to 4 :for L=0 to 4
120 print "a[" ;I;"," ;J;"," ;K;"," ;L;"] = " ;A[I,J,K,L]
130 next L:next K:next J:next I